home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Toolbox Classes / fInfo < prev    next >
Text File  |  1986-09-17  |  567b  |  31 lines
  1. \  8/02/86  cdn Finder Information block
  2.  
  3. :CLASS Fin  <Super Object
  4.  
  5.     \ ( -- bool )
  6.     :M  PRINT?: fInfo w@ ;M
  7.  
  8.     \ ( -- #files )
  9.     :M  SIZE: fInfo 2+ w@ ;M
  10.  
  11.     \ ( idx -- adr )
  12.     :M  FREC: fInfo 4+ swap 0 DO 8+ dup c@ + 1+ align LOOP ;M
  13.  
  14.     \ ( idx -- refNum )
  15.     :M  VREF: fRec: self w@ ;M
  16.  
  17.     \ ( idx -- fType )
  18.     :M  FTYPE: fRec: self 2+ @ ;M
  19.  
  20.     \ ( idx -- fVer )
  21.     :M  FVER: fRec: self 6 + c@ ;M
  22.  
  23.     \ ( idx -- addr len )
  24.     :M  FILENAME: fRec: self 8+ count ;M
  25.  
  26.     \ ( idx fileObj -- )
  27.     :M  =: { fileObj -- }
  28.         dup filename: self name: fileObj vRef: self setVref: fileObj ;M
  29.  
  30. ;CLASS
  31.